Corey Neff
7/8/2021
This simple RMarkdown presentatio was created as the final assignment for the Creating Data Products Coursera course. Here I will be pitching the app I created, which can be found HERE.
Requirements:
It must be done in Slidify or Rstudio Presenter
It must be 5 pages
It must be hosted on github or Rpubs
It must contained some embedded R code that gets run when slidifying the document
Cyclistic is a fictional bike-sharing company based in Chicago, IL, and they have one question:
To answer this question, a number of visuals (including both graphs and a map) were created to show how members and casual users differ.
library(librarian)
shelf(dplyr, ggplot2, plotly)
set.seed(69)
mydata <- readRDS(file = "data.rds")
ggplotly(ggplot(mydata) +
geom_histogram(aes(x=ride_length, fill = member_casual)) +
xlim(0, 10000) +
labs(fill = "Member Status?") +
xlab("Length of Time (s)") +
ggtitle(paste("Distribution of","Length of Time (s)"," by Member Status")) +
theme_bw())Here, the second tab of the app can be found. To use the app, please visit the webpage listed earlier.